home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 December / CHIP Aralık 1996.iso / prog / backpack / demodata / dep_dir / shared.dxr / 00913_ButtonH.ls < prev    next >
Encoding:
Text File  |  1995-08-30  |  370 b   |  14 lines
  1. on ButtonH
  2.   set K to value(the text of field "NumberOfTravels")
  3.   if the frame > (label("ShowTravels") + K + 1) then
  4.     set K to the clickOn
  5.     puppetSprite(K, 1)
  6.     set the castNum of sprite K to the castNum of sprite K + 1
  7.     puppetSound("Klick")
  8.     updateStage()
  9.     repeat while the stillDown or soundBusy(1)
  10.     end repeat
  11.     puppetSprite(K, 0)
  12.   end if
  13. end
  14.